Attribute VB_Name = "modMesurement"
Option Explicit

Public Function TwipToPixel#(v#)
    TwipToPixel# = v / Screen.TwipsPerPixelX
End Function

Public Function TwipToPoint#(v#)
    TwipToPoint# = v * 20
End Function

Public Function TwipToInch#(v#)
    TwipToInch# = v * 1440
End Function

Public Function TwipToCentimeter#(v#)
    TwipToCentimeter# = TwipToInch(v) * 2.54
End Function

Public Function PixelToTwip#(v#)
    PixelToTwip# = v * Screen.TwipsPerPixelX
End Function

Public Function PixelToPoint#(v#)
    PixelToPoint = TwipToPoint(PixelToTwip(v))
End Function

Public Function PixelToInch#(v#)
    PixelToInch = TwipToInch(PixelToTwip(v))
End Function

Public Function PixelToCentimeter#(v#)
    PixelToCentimeter = PixelToInch(InchToCentimeter(v))
End Function

Public Function InchToTwip#(v#)
    InchToTwip = v * 1440
End Function

Public Function InchToCentimeter#(v#)
    InchToCentimeter = v * 2.54
End Function

Public Function CentimeterToInch#(v#)
    CentimeterToInch# = v / 2.54
End Function

Public Function CentimeterToTwip#(v#)
    CentimeterToTwip = InchToTwip(CentimeterToInch(v))
End Function
